home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CoolMacStacks.sea / Cool Mac Stacks / Utilities / HyperConference / stack_-1.xml < prev   
Extensible Markup Language  |  1991-12-17  |  5KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>2268</cardID>
  8.     <listID>3818</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>480</width>
  14.         <height>272</height>
  15.     </cardSize>
  16.     <script>---------------------------------------------------------------  This stack written by Jeff Benjamin. 1991.--  It is freeware.--  A first hack at appleEvents.----------------------------------------------------------------------------------------------------------------------------  Process all appleEvents                                ---------------------------------------------------------------on appleEvent eventClass,eventID,senderif eventID = "getM" then                  -- handle getMessage eventrequest appleEvent data                 -- get data sentif it is empty then pass appleEvent     -- do nothing if data is nullgetMessage itreply "Finished!"end ifif eventID = "ansr" then                  -- handle reply from Send buttonrequest appleEvent data                 -- get data sentif it is empty then pass appleEvent     -- do nothing if data is nullgotReply itend ifselect after text of cd fld "entry"pass appleEventend appleEventon getMessage theParamsset the itemDelimiter to "‚àÜ"get theParamsif item 4 of it is true then alertUser item 1 of itput item 1 of it && the date && the time & return after cd fld "transcript"put item 2 of it & return after cd fld "transcript"           -- display messageif item 3 of it is true then play "conference notify"setTranscriptScrollend getMessage---------------------------------------------------------------  scroll to bottom of text                               ---------------------------------------------------------------on setTranscriptScrollset the scroll of cd fld "transcript" to¬¨the textHeight of cd fld "transcript" * the number of lines of cd fld "transcript"end setTranscriptScroll---------------------------------------------------------------  Bring HC to front and show message                     ---------------------------------------------------------------on alertUser fromWhombeepdoMenu "hyperCard"answer "You have an important message from: " & return &¬¨fromWhom with "Show me!"end alertUseron openStack---------------------------------------------------------------  Check the system version                               ---------------------------------------------------------------get the systemVersionif it < 7.0 thenbeepanswer "This stack will not function on your system (" &¬¨it & "). " & return & "Upgrade to System 7.0 or greater." with¬¨"OK" or "Home"if it is "Home" thengo homeexit to hyperCardend ifend if---------------------------------------------------------------  Check the HyperCard version                            ---------------------------------------------------------------get the version of hyperCardif it < 2.1 thenbeepanswer "This stack will not function with this version of HyperCard (" &¬¨it & "). " & return & "Upgrade to 2.1 or greater." with¬¨"OK" or "Home"if it is "Home" thengo homeexit to hyperCardend ifend if---------------------------------------------------------------  initialize card fields                                 ---------------------------------------------------------------go cd 1put empty into cd fld "transcript"put empty into cd fld "entry"createMenufillGlobalsend openStack---------------------------------------------------------------  handle reply                                           ---------------------------------------------------------------on gotReply theReplybeepanswer cd fld "onlineUsers" && " appears ready now"end gotReply---------------------------------------------------------------  menu                                                   ---------------------------------------------------------------on createMenuif there is a menu "Conference" then exit createMenucreate menu "Conference"put createMenuItems() into menu "Conference" with menuMsg createMenuMsgs()end createMenufunction createMenuItemsreturn "Preferences..." & returnend createMenuItemsfunction createMenuMsgsreturn "preferences"end createMenuMsgson closeStackdelete menu "Conference"end closeStack---------------------------------------------------------------  Prefs                                                  ---------------------------------------------------------------on preferencesgo cd "preferences"end preferences---------------------------------------------------------------  fillGlobals                                                  ---------------------------------------------------------------on fillGlobalsglobal gTimeoutput cd fld "timeout" of cd "preferences" into gTimeoutend fillGlobals</script>
  17.     <background id="2625" file="background_2625.xml" name="" />
  18.     <card id="2268" file="card_2268.xml" marked="false" name="" owner="2625" />
  19.     <card id="2861" file="card_2861.xml" marked="false" name="about" owner="2625" />
  20.     <card id="4604" file="card_4604.xml" marked="false" name="help" owner="2625" />
  21.     <card id="4916" file="card_4916.xml" marked="false" name="preferences" owner="2625" />
  22. </stack>
  23.